home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / bprep110.zip / SAMPLE.BAS < prev    next >
BASIC Source File  |  1991-09-18  |  895b  |  47 lines
  1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. ' Sample.b : Sample input file to demonstrate BPREP
  3. '
  4. '
  5. '
  6. '
  7. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  8. ' Sample.inc : Sample include file to demonstrate BPREP
  9. '
  10. '
  11. '
  12. '
  13.               
  14.  
  15.  
  16. '#define REGISTERED
  17.  
  18.                      
  19.        
  20. '
  21. '  A simple delay, change DELAY_T for different delay times
  22. '
  23.   
  24. '
  25. ' Main program follows
  26. '
  27. print "Super List [c] 1991 HOME-SPUN Technologies!"+chr$(13)+chr$(10)+chr$(10)
  28.  
  29. if command$ = "" then print "USAGE: List <filename>" : system
  30.  
  31. open command$ for input as #1
  32.  
  33. do until eof(1)
  34.  
  35.         input #1, line$
  36.         print line$
  37.  
  38. loop
  39.  
  40.  
  41. print "To remove this delay and message register today!"
  42. print "        thankyou for using shareware!"
  43. for x=1 to 10000:for y = 1 to 10000:z=z*2:next y:next x
  44.  
  45.  
  46.  
  47.